VERSION 5.00
Begin VB.Form frmMHDock 
   Caption         =   "MHDock UserControl "
   ClientHeight    =   1890
   ClientLeft      =   1500
   ClientTop       =   3135
   ClientWidth     =   3840
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   1890
   ScaleWidth      =   3840
   Begin prjMHDock.MHDock MHDock1 
      Left            =   960
      Top             =   1020
      _ExtentX        =   847
      _ExtentY        =   820
   End
   Begin VB.Label lblyDock 
      Height          =   195
      Left            =   1500
      TabIndex        =   3
      Top             =   420
      Width           =   2235
   End
   Begin VB.Label lblxDock 
      Height          =   195
      Left            =   1500
      TabIndex        =   2
      Top             =   120
      Width           =   2235
   End
   Begin VB.Label Label1 
      Alignment       =   1  'Right Justify
      Caption         =   "Vertical Snap:"
      Height          =   255
      Index           =   1
      Left            =   180
      TabIndex        =   1
      Top             =   420
      Width           =   1215
   End
   Begin VB.Label Label1 
      Alignment       =   1  'Right Justify
      Caption         =   "Horizontal Snap:"
      Height          =   255
      Index           =   0
      Left            =   180
      TabIndex        =   0
      Top             =   120
      Width           =   1215
   End
Attribute VB_Name = "frmMHDock"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Form_Load()
    Move 0, 0, 3960, 3000
End Sub
Private Sub MHDock1_Moved(xDockPos As Single, yDockPos As Single)
    Select Case xDockPos
        Case 0: lblxDock.Caption = "Not docked"
        Case 1: lblxDock.Caption = "Docked on the left"
        Case 2: lblxDock.Caption = "Docked on the right"
    End Select
    Select Case yDockPos
        Case 0: lblyDock.Caption = "Not docked"
        Case 1: lblyDock.Caption = "Docked on the top"
        Case 2: lblyDock.Caption = "Docked on the bottom"
    End Select
End Sub